Overview plot
Blue markers are the positions at the full hour for approximate logbook entries. Red markers show beginning and end of missing segments.
Code
leaflet() |>
addTiles() |>
addPolylines(data = df_1min, lat = ~lat, lng = ~lon,
color = "#000000", opacity = 0.8, weight = 3) |>
leaflet::addAwesomeMarkers(
data = df_1hour, lat = ~lat, lng = ~lon, label = ~as.character(hour(time))) |>
leaflet::addAwesomeMarkers(data = df[outlier_area, ], lat = ~lat, lng = ~lon,
label = ~as.character(hour(time)),
icon = awesomeIcons(icon = 'ios-close',
iconColor = 'black',
library = 'ion',
markerColor = 'red'))
Code
leaflet() |>
addTiles() |>
addPolylines(data = df, lat = ~lat, lng = ~lon,
color = "#000000", opacity = 0.8, weight = 3) |>
leaflet::addAwesomeMarkers(
data = df_1hour, lat = ~lat, lng = ~lon, label = ~as.character(hour)) |>
leaflet::addAwesomeMarkers(
data = df[outlier_area, ], lat = ~lat, lng = ~lon,
label = ~as.character(hour(time)),
icon = awesomeIcons(icon = 'ios-close', iconColor = 'black',
library = 'ion', markerColor = 'red'))
Hourly log book
Code
df_1hour |>
mutate(latitude = deg2dms(lat, type = "cat"),
longitude = deg2dms(lon, type = "cat"),
# add distance
across(c(cog, kts, dist), \(x) round(x, 1))
) |>
mutate(time = sprintf("%02d:%02d", hour(time), minute(time)),
date = str_remove(as.character(date), "^[0-9]*-"))|>
select(date, time, latitude, longitude, cog, kts, dist_day, dist) |>
gt::gt() |>
gt::opt_interactive(use_text_wrapping = FALSE) |>
gt::cols_width(dplyr::any_of(c("latitude", "longitude")) ~ gt::px(150))
COG
Code
df_10min |>
ggplot(aes(x = time, y = cog)) + geom_point() + geom_line()
Code
df_1min |>
ggplot(aes(x = time, y = cog)) + geom_point() + geom_line()
Distance
Checking Cumulative Miles in total and per day. The full track shows missing segments, marked in red in the full data route above.
Code
df_10min |>
ggplot(aes(x = time, y = dist)) + geom_point() + geom_line()
Code
df_10min |>
ggplot(aes(x = time, y = dist_day)) + geom_point() + geom_line()
missing segments
Code
df |>
ggplot(aes(x = time, y = dist_segment)) + geom_point() + geom_line()